home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Rexx / ShowTln.ecfg < prev    next >
Text File  |  2000-05-08  |  3KB  |  122 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      ShowTln.ecfg                    EuraConfig-Script       **
  4. **      Zeigt Informationen über einen Teilnehmer               **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.1 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 20
  14. IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION CHECK=3'               /* Richtige Kommando-Version? */
  19.  
  20. flags.0 = "Nein"                /* BOOL -> Text */
  21. flags.1 = "Ja"
  22.  
  23. typ.0   = "Telefon"             /* Gerätetyp */
  24. typ.1   = "Anrufbeantworter"
  25. typ.2   = "Fax"
  26. typ.3   = "Modem"
  27. typ.4   = "Multifunktional"
  28. typ.5   = "Türsprechanlage"
  29. typ.6   = "ISDN"
  30.  
  31. amt.0   = "Keine"               /* Amtsberechtigungen */
  32. amt.1   = "Kommend"
  33. amt.2   = "Ortsgespräch"
  34. amt.3   = "Nahbereich"
  35. amt.4   = "Inland"
  36. amt.5   = "Unbegrenzt"
  37.  
  38. desc.0  = "Masterberechtigung"  /* Flag -> Text */
  39. desc.1  = "Aufschaltschutz"
  40. desc.2  = "Aufschalt"
  41. desc.3  = "Rufverteilung Tag, Anlage A"
  42. desc.4  = "Rufverteilung Tag, Anlage B"
  43. desc.5  = "Rufverteilung Nacht, Anlage A"
  44. desc.6  = "Rufverteilung Nacht, Anlage B"
  45. desc.7  = "Türruf 1, Anlage A"
  46. desc.8  = "Türruf 1, Anlage B"
  47. desc.9  = "Türruf 2, Anlage A"
  48. desc.10 = "Türruf 2, Anlage B"
  49. desc.11 = "Rufweiterschaltung, Anlage A"
  50. desc.12 = "Rufweiterschaltung, Anlage B"
  51. desc.13 = "Zweitwecker 1"
  52. desc.14 = "Zweitwecker 2"
  53. desc.15 = "Gebührendruck"
  54. desc.16 = "Komplette Rufnummer drucken"
  55. desc.17 = "Gekürzte Rufnummer drucken"
  56. desc.18 = "Gebührenimpuls"
  57. desc.19 = "Anklopfschutz"
  58. desc.20 = "Aufschaltschutz"
  59. desc.21 = "Ruhe vor dem Telefon"
  60. desc.22 = "Hotline"
  61. desc.23 = "Raumüberwachung"
  62. desc.24 = "CLIR"
  63. desc.25 = "COLR"
  64. desc.26 = "Weckzeit"
  65.  
  66.  
  67. /*--- Die Auswertung beginnt hier ---*/
  68. SAY "Welcher Teilnehmer?"       /* Teilnehmer-Nr. erfragen */
  69. PARSE PULL tln
  70.  
  71. DO ix = 0 TO 9                  /* Alle Daten auslesen und in einen Stem eintragen */
  72.   'TLN "'||tln||'" "'||ix||'"'
  73.   IF RC~=0 THEN DO
  74.     SAY "Teilnehmer existiert nicht"
  75.     EXIT
  76.   END
  77.   tl.ix = result
  78. END
  79.  
  80. SAY ""                          /* Leerzeile */
  81.  
  82.                                 /* Infos über den Teilnehmer ausgeben */
  83. SAY "Teilnehmer Nr." tl.1 "("||tl.0||")"
  84. SAY Left("",40,"-")
  85. SAY Left("Gebührensumme",30)||":" tl.3%100||","||Right(tl.3//100,2,"0") "DM"
  86. SAY Left("Gebührenfaktor",30)||":" tl.2 "Pfg"
  87. hilf = tl.5
  88. SAY Left("Gerätetyp",30)||":" typ.hilf
  89. hilf = tl.4
  90. SAY Left("Amtsberechtigung",30)||":" amt.hilf
  91.  
  92. SAY ""
  93. DO flag = 0 TO 26
  94.   'TLNFLAGS "'||tln||'" "'||flag||'"'
  95.   SAY Left(desc.flag,30)||":" flags.result
  96. END
  97.  
  98. SAY ""
  99. SAY Left("Weckzeit",30)||":" Right(tl.6%60,2)||":"||Right(tl.6//60,2,"0")
  100. SAY Left("Rufumleitungs-Zeit",30)||":" tl.7 "sec."
  101. SAY Left("Rufumleitung bei Besetzt",30)||":" tl.8
  102. SAY Left("Rufumleitung nach Zeit",30)||":" tl.8
  103.  
  104. SAY ""
  105. SAY "Zugewiesene Rufnummern:"
  106. DO port = 1 TO 3
  107.   DO msn = 0 TO 9
  108.     'TLNMSN "'||tln||'" "'||port||'" "'||msn||'"'
  109.     IF result = '1' THEN DO
  110.       'PORT "'||port||'" "'||msn+2||'"'
  111.       SAY "  Port" port "MSN" msn "= Rufnr." result
  112.     END
  113.   END
  114. END
  115.  
  116. SAY ""
  117. SAY ""
  118. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  119.  
  120. EXIT
  121.  
  122.